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10 asr dO,dO 

— *■ mac d6 , d8 , dO 
7,4 — « mac d7,d9,d0 
Ito mac dl5,dll,d2 
1% - — » add dO,dl,dlO 
IO — * add dl0,d2,d6 
37, _^*add d6,d3,d0 



move.4f (rO) + , d4 : d5 : d6 : d7 



move.4f (rl) , d8 :d9 : dlO : dll 



mpy d4,d8,dl 
mac d5,d9,dl 
mac dl3,dll,d3 
add d2,d2,d2 
tfr d0,d4 



move.4f (rO) , dl2 :dl3 :dl4 :dl5 
mpy dl4,dl0,d2 mpy dl2,dl0,d3 



add dO,dO,dO 
add d3,d3,d3 
move.f (rl),d5 



moves. 4f d4:d5:d6:d7, (rl) 



add dl,dl,dl 
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IB(lnstruction Bus, 128) 



xl(1)=x(n)/2 



xl(1)+xl(3)=xl(1)+a 11 *w 1 (n-1) 
xl(7)=b 11 *w 1 (n-1) 



xl(5)=xl(1)+xl(3)+a 12 *w 1 (n-2) 
xl(9)=xl(7)+b 12 *w 2 (n-1) 
xl(12)=a 21 *w 2 (n-1) 
xl(16)=b 21 *w 2 (n-1) 
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xl(13)=xl(12)+a 22 *w 2 (n-2) 
xl(18)=xl(16)+b 22 *w 2 (n-2) 
xl(6)=xl(5)*2 
xl(9)*2 



xl(10)*2=xl(6)+xl(9)*2 
xl(13)*2 
xl(18)*2 
w 2 (n-2) new =xs(4)=w 2 (n-1) 



xl(15)=xl(14)*2=xl(10)*2+xl(13)*2 
w 2 (n-1 ) new =xs(3)=xl(1 0)*2+xl(1 3)*2 
w 1 (n-1) new =xs(1)=xl(6) 
w,(n-2) new =w 1 (n-1) 
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y(n)=xl(20)=xl(14)*2+xl(18)*2 
savew^n-l^.w^n^),,^, 
w 2 (n-1) new ,w 2 (n-2) 
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<*t> -» asr dO.dO move.4f (r0)+,d4:d5:d6:d7 move.4f (rl)+,d8:d9:dlO:dl 1 
<e%~+ macd7,d9,d0 mpyd5,d8,d3 tfrd8,d9 move.l (rl),d2 move.4f (rO),dl2:dl3:dl4:dl5 
64-* macd6,d8,dO mac dl4,dl0,d2 mac dl5,dlO,d3 mpy dl3,dll,dl tfrarl,iO 
Ob-*. addd0,d0,d8 addd0,d2,d2 macdl2,dl0,dl tfrdl0.dll suba#8,r0 

— » add d2,dl,d0 add d2,d2,dl0 mac d4,d8,d3 
"H?— ♦ add dO.dO.dO move.l d3,(rl) moves.4f d8:d9:dlO:dll,(rO) 
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xl(1)=x(n)/2 
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xl(1 )+xl(2)=xl(1 )+a, 2 *w t (n-2) 
xl(8)=b 12 *w 1 (n-1) 



xl(5)=xl(1)+xl(2)+a 11 *w 1 (n-1) 
S_L(n)+xl(1 3)=S_L(n)+^ 1 *w 2 (n-1) 
xl(10)=xl(8)+a 22 *w 2 (n-1) 
xl(17)=w 2 (n-2)*t2 2 



T 



xl(6)=2*xl(5) 
Wl (n-1) new =2* xl(5) 
xl(14)=S_L(n)+xl(13)+xl(5) 
xl(18)=xl(17)+b 21 *w 2 (n-1) 
w 2 (n-2)=w 2 (n-1) 



xl(19)=xl(14)+xl(18) 
w 2 (n-D new =xl(14)*2 
S_L(n) new =xl(1 1 )=xi(10)+b 1 , *w, (n-1 \ 
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y(n)=xl(20)=xl(19)*2 
Save SJ-Cn)^, 

W 2 ( n - 1 )ne«. W 2( n - 2 ) n ew 
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